home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / G-Games / (c)g2.d64 / cont.ldr.pal (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  65 lines
  1. 1 REM"[134]=SAVE"@0:CONT.LDR.PAL",8
  2. 10 [159]1,8,8,"@0:CONT.LDR.ML,P,W"
  3. 20 [158]700
  4. 30 .OPT O1
  5. 40 .BAS
  6. 100 [143] **************************
  7. 110 [143] *                        *
  8. 120 [143] *  HIRES PICTURE LOADER  *
  9. 130 [143] *    FOR COMMODORE 64    *
  10. 140 [143] *                        *
  11. 150 [143] *                        *
  12. 160 [143] *    DON WHITE           *
  13. 170 [143] *    47 ARIEL COURT      *
  14. 180 [143] *    NEPEAN, ONTARIO     *
  15. 190 [143] *    K2H 8J1             *
  16. 200 [143] *                        *
  17. 210 [143] *    613-829-2082        *
  18. 220 [143] *                        *
  19. 230 [143] **************************
  20. 240 [143]
  21. 250 [153]"LOAD
  22. 260 IFCT>0THEN340
  23. 270 CLR:RESTORE
  24. 280 CT=0:REM INITIALIZE COUNTER
  25. 290 NN=20:REM # PICTURES TO LOAD
  26. 300 V=53248:POKEV+17,59:POKEV+24,25:REM HIGH RES SCREEN
  27. 310 :
  28. 320 DIMPI$(NN),CL(NN):FORI=1TONN:READ PI$(I),CL(I):NEXT:GOTO400
  29. 330 :
  30. 340 PRINT"[147]"
  31. 350 GETZZ$:IFZZ$="S"THENPOKEV+17,27:POKEV+24,21:PRINT"[147]":END
  32. 360 POKE53280,INT(16*RND(1))
  33. 370 POKE828,CL(CT)
  34. 380 SYS"COLFILL"
  35. 390 FORI=1TO2000:NEXT:PRINT"[147]"
  36. 400 PRINT"[147]":CT=CT+1:IFCT>NNTHEN270
  37. 410 LOAD PI$(CT),8,1:REM LOAD PICTURE ON HIRES SCREEN
  38. 420 :
  39. 430 REM NAMES & COLOURS OF PICTURES
  40. 440 :
  41. 450 DATA FIG1,7,TEX,28,FIG2,137,HOPALONG,28,SQUEEZE,235
  42. 455 DATA GUY,80,FIG3,133,MOUND2,7,EYES,22,FRIENDS,251
  43. 460 DATA SINCOS2,44,SATELLITE,224,DONALD.DUCK,22,VM.THINGS,97,SESAME.ST,122
  44. 465 DATA NUDE.REV,1,VIS.ROSETTE,20,VIS.G1A,87
  45. 470 DATA XMAS.CARD.1,81,4HILL5,27
  46. 490 END
  47. 500 ; ASSEMBLER
  48. 510 SCRNLO = $00FB
  49. 520 SCRNHI = $00FC
  50. 530 COLOUR = $033C
  51. 540 COLFILL = *
  52. 550 LDA COLOUR
  53. 560 LDY #00
  54. 570 STY SCRNLO
  55. 580 LDX #04
  56. 590 NXPAGE STX SCRNHI
  57. 600 NEXT STA (SCRNLO),Y
  58. 610 INY
  59. 620 BNE NEXT
  60. 630 INX
  61. 640 STX SCRNHI
  62. 650 CPX #$08
  63. 660 BNE NXPAGE
  64. 670 RTS
  65.